﻿
#If RETIRED Then
Imports System.IO

Public Class applet
    Inherits xhtmlControl

    Protected Overrides Function availableAttribute(ByVal key As String) As Boolean
        Return attributesCollection.core(key) OrElse _
                attributesCollection.alt(key) OrElse _
                attributesCollection.archive(key) OrElse _
                attributesCollection.code(key) OrElse _
                attributesCollection.codebase(key) OrElse _
                attributesCollection.height(key) OrElse _
                attributesCollection.object(key) OrElse _
                attributesCollection.width(key) OrElse _
                attributesCollection.name(key)
    End Function

    Public Sub New(Optional Byval buff As MemoryStream = Nothing)
        MyBase.New(buff, "applet")
    End Sub
End Class
#End If
